﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class InfpresupFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As InfpresupBE
        Dim tmpInfpresup As InfpresupBE = New InfpresupBE()
        Try
            With tmpInfpresup
                .Disponible = convertDTFromDb.convertDouble(dr.Item("Disponible"))
                .NumCuenta = convertDTFromDb.ConvertString(dr.Item("NumCuenta"))
                .OrdPen = convertDTFromDb.convertDouble(dr.Item("OrdPen"))
                .OrdSur = convertDTFromDb.convertDouble(dr.Item("OrdSur"))
                .Presup = convertDTFromDb.convertDouble(dr.Item("Presup"))
            End With
            Return tmpInfpresup
        Catch ex As Exception
            Throw
        Finally
            tmpInfpresup = Nothing
        End Try
    End Function
End Class
